﻿Public Class Form_Login




    Private Sub btnClose_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnClose.Click
        Me.Close()

    End Sub

    Private Sub btnLogin_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles btnLogin.Click

        If txtUserName.Text = "mygroup" And txtPassword.Text = "bbu409" Then
            ' MsgBox("You Are Lgoed In!")
            Me.Hide()
            FormMain.Show()
        Else
            MsgBox("UserName Or Password incorrect")
        End If
    End Sub

    Private Sub Form_Login_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
End Class